program Clinics;

uses
  Vcl.Forms,
  Main in 'Main.pas' {fmmain},
  dm in 'dm.pas' {dmMain: TDataModule},
  Pat in 'Pat.pas' {FmPat},
  Neonatolog_Frame in 'Neonatolog_Frame.pas' {FrNeonatolog: TFrame},
  PasportChastFrame in 'PasportChastFrame.pas' {PasportFr: TFrame},
  zav in 'zav.pas' {fmZav},
  Diagnos_Frame in 'Diagnos_Frame.pas' {FrDiagnos: TFrame},
  Monitoring_Frame in 'Monitoring_Frame.pas' {FrMonitoring: TFrame},
  Vakcina_Frame in 'Vakcina_Frame.pas' {FrVakcina: TFrame},
  Temper_Frame in 'Temper_Frame.pas' {Fr_Temper: TFrame},
  Davlenie_Frame in 'Davlenie_Frame.pas' {FrDavlenie: TFrame},
  Dobav in 'Dobav.pas' {fmDoctor},
  NaznChild_Frame in 'NaznChild_Frame.pas' {FrNaznChild: TFrame},
  NablChild_Frame in 'NablChild_Frame.pas' {FrNablChild: TFrame},
  NaznPat_Frame in 'NaznPat_Frame.pas' {FrNaznPat: TFrame},
  Unit1 in 'Unit1.pas' {Frame1: TFrame},
  Dnevnik1 in 'Dnevnik1.pas' {Dnevnik: TFrame},
  Vipiska1 in 'Vipiska1.pas' {Vipiska: TFrame},
  LS in 'LS.pas' {FmLS},
  forShablon in 'forShablon.pas' {formShablon},
  forSerch in 'forSerch.pas' {FormSerch},
  Spravka in 'Spravka.pas' {Medical_Info},
  Mkb_poisk in 'Mkb_poisk.pas' {MkbPoisk},
  Epikriz_Frame in 'Epikriz_Frame.pas' {FrEpikriz: TFrame},
  forApgar_Help in 'forApgar_Help.pas' {Apgar_Help};

//Unit2 in 'Unit2.pas' {MkbPoisk};

{$R *.res}

begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(Tfmmain, fmmain);
  Application.CreateForm(TFmPat, FmPat);
  Application.CreateForm(TdmMain, dmMain);
  Application.CreateForm(TfmZav, fmZav);
  Application.CreateForm(TfmDoctor, fmDoctor);
  Application.CreateForm(TFmLS, FmLS);
  Application.CreateForm(TformShablon, formShablon);
  Application.CreateForm(TFormSerch, FormSerch);
  Application.CreateForm(TMedical_Info, Medical_Info);
  Application.CreateForm(TMedical_Info, Medical_Info);
  Application.CreateForm(TMkbPoisk, MkbPoisk);
  Application.CreateForm(TApgar_Help, Apgar_Help);
  //Application.CreateForm(TMkbPoisk, MkbPoisk);
  Application.Run;
end.
